Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / boxes / prctvb25 / pbitmap.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-20 | 10.8 KB | 332 lines

VERSION 2.00 Begin Form PBitmap BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Percent VBX Bitmaps Demo" ClientHeight = 2655 ClientLeft = 2445 ClientTop = 2100 ClientWidth = 6135 Height = 3060 Left = 2385 LinkTopic = "Form3" MDIChild = -1 'True ScaleHeight = 2655 ScaleWidth = 6135 Top = 1755 Width = 6255 Begin HScrollBar HScroll1 Height = 285 LargeChange = 10 Left = 2325 Max = 100 TabIndex = 13 Top = 2250 Value = 50 Width = 1830 End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "PercentStyle" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1050 Left = 2340 TabIndex = 9 Top = 1140 Width = 1815 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "PercentColor" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 120 TabIndex = 12 Top = 495 Value = -1 'True Width = 1365 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "On/Off Negative" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 120 TabIndex = 11 Top = 270 Width = 1530 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 120 TabIndex = 10 Top = 705 Width = 825 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Bitmap Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1065 Index = 2 Left = 2340 TabIndex = 4 Top = 30 Width = 1830 Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "BackPicture" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 120 TabIndex = 7 Top = 270 Width = 1260 End Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "OnPicture" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 120 TabIndex = 6 Top = 495 Value = -1 'True Width = 1050 End Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "OffPicture" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Index = 2 Left = 120 TabIndex = 5 Top = 735 Width = 1125 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Select Bitmap" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2130 Left = 4245 TabIndex = 1 Top = 30 Width = 1800 Begin PictureBox Picture1 BackColor = &H00C0C0C0& FillColor = &H00FFFFFF& FillStyle = 0 'Solid ForeColor = &H00FFFFFF& Height = 400 Index = 2 Left = 855 ScaleHeight = 375 ScaleWidth = 375 TabIndex = 8 Top = 1335 Width = 400 End Begin PictureBox Picture1 BackColor = &H000000C0& FillColor = &H00FFFFFF& FillStyle = 0 'Solid ForeColor = &H00FFFFFF& Height = 400 Index = 0 Left = 855 ScaleHeight = 375 ScaleWidth = 375 TabIndex = 3 Top = 465 Width = 400 End Begin PictureBox Picture1 BackColor = &H00F0FBFF& FillColor = &H00FFFFFF& FillStyle = 0 'Solid ForeColor = &H00FFFFFF& Height = 400 Index = 1 Left = 855 ScaleHeight = 375 ScaleWidth = 375 TabIndex = 2 Top = 900 Width = 400 End Begin Image Image1 Height = 405 Index = 2 Left = 315 Picture = PBITMAP.FRX:0000 Stretch = -1 'True Top = 1335 Width = 405 End Begin Image Image1 Height = 405 Index = 1 Left = 315 Picture = PBITMAP.FRX:62A2 Stretch = -1 'True Top = 900 Width = 405 End Begin Image Image1 Height = 405 Index = 0 Left = 330 Picture = PBITMAP.FRX:B86C Stretch = -1 'True Top = 465 Width = 405 End End Begin PRCNT Prcnt1 AutoRedraw = -1 'True AVersion = 2.501 BackColor = &H00C0C0C0& BarBorder = 0.05 BarInner = 0.1 BarOuter = 0.9 BevelInner = 0 ' 0 - None BevelOuter = 0 ' 0 - None BevelWidth = 2 BorderWidth = 2 CaptionID = 0 Captions = 0 Direction = 0 ' 0 - Forward DisplayMode = 0 ' 0 - Linear FontID = 0 Height = 2595 Left = 15 Max = 100 Min = 0 MouseControl = -1 'True OffColor = &H00FFFFFF& OnColor = &H00FF0000& Orientation = 0 ' 0 - Horizontal Percent = 50 PercentColor = &H00000000& PercentFontID = 0 PercentStyle = 0 ' 0 - On/Off Negative Shape = "" ShapeStyle = 1 ' 1 - Ellipse TabIndex = 0 Top = 0 Value = 50 Width = 2265 ZLoad = PBITMAP.FRX:D7FA End Begin Label Label1 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "50" Height = 195 Left = 4230 TabIndex = 14 Top = 2295 Width = 225 End Sub HScroll1_Change () prcnt1 = hscroll1 label1 = Str(prcnt1) End Sub Sub HScroll1_Scroll () prcnt1 = hscroll1 label1 = Str(prcnt1) End Sub Sub Image1_Click (index As Integer) For i = 0 To 2 If option3(i) = True Then Select Case i Case 0 prcnt1.BackPicture = Image1(index).Picture Case 1 prcnt1.OnPicture = Image1(index).Picture Case 2 prcnt1.OffPicture = Image1(index).Picture End Select End If Next End Sub Sub Option1_Click (index As Integer) prcnt1.PercentStyle = index End Sub Sub Picture1_Click (index As Integer) For i = 0 To 2 If option3(i) = True Then Select Case i Case 0 prcnt1.BackPicture = LoadPicture("") prcnt1.BackColor = Picture1(index).BackColor Case 1 prcnt1.OnPicture = LoadPicture("") prcnt1.OnColor = Picture1(index).BackColor Case 2 prcnt1.OffPicture = LoadPicture("") prcnt1.OffColor = Picture1(index).BackColor End Select End If Next End Sub Sub Prcnt1_Change () hscroll1 = prcnt1 End Sub